home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / vba102.zip / VBADDONS.TXT < prev    next >
Text File  |  1991-09-15  |  2KB  |  45 lines

  1. '
  2. '   Declares for Huge Array Support
  3. '
  4. Declare Function HugeCurrency Lib "vbaddons.dll" (ByVal hArray%, ByVal el&) As Currency
  5. Declare Function HugeDim Lib "vbaddons.dll" (ByVal recsize%, ByVal limit&) As Integer
  6. Declare Function HugeDouble Lib "vbaddons.dll" (ByVal hArray%, ByVal el&) As Double
  7. Declare Function HugeErase Lib "vbaddons.dll" (ByVal hArray%) As Integer
  8. Declare Function HugeGetElement Lib "vbaddons.dll" (ByVal Index%, ByVal el&, buffer As Any) As Integer
  9. Declare Function HugeInt Lib "vbaddons.dll" (ByVal hArray%, ByVal el&) As Integer
  10. Declare Function HugeLong Lib "vbaddons.dll" (ByVal hArray%, ByVal el&) As Long
  11. Declare Function HugeNumArrays Lib "vbaddons.dll" () As Integer
  12. Declare Function HugeRedim Lib "vbaddons.dll" (ByVal hArray%, ByVal limit&) As Integer
  13. Declare Function HugeSetElement Lib "vbaddons.dll" (ByVal Index%, ByVal el&, buffer As Any) As Integer
  14. Declare Function HugeSingle Lib "vbaddons.dll" (ByVal hArray%, ByVal el&) As Single
  15. Declare Function HugeUbound Lib "vbaddons.dll" (ByVal hArray%) As Long
  16. '
  17. '   Data type for DiskGetFirstFile & DiskGetNextFile
  18. '
  19. Type FindDataType
  20.   reserved As String * 21
  21.   FileAttr As String * 1
  22.   FileTime As Integer
  23.   FileDate As Integer
  24.   FileSize As Long
  25.   FileName As String * 13
  26. End Type
  27. '
  28. '   Bitmasks for FileAttr field of FindDataType
  29. '
  30. Global Const FILE_NORMAL = 0  ' Normal file - No read/write restrictions
  31. Global Const FILE_RDONLY = 1    ' Read only file
  32. Global Const FILE_HIDDEN = 2    ' Hidden file
  33. Global Const FILE_SYSTEM = 4    ' System file
  34. Global Const FILE_VOLID = 8     ' Volume ID file
  35. Global Const FILE_SUBDIR = 16   ' Subdirectory
  36. Global Const FILE_ARCH = 32     ' Archive flag
  37. Global Const FILE_ALLFILES = 63 ' All files
  38.  
  39.  
  40. Declare Function DiskGetFirstFile Lib "vbaddons.dll" (ByVal StartString As String, ByVal AttrFlags As Integer, FindData As FindDataType) As Integer
  41. Declare Function DiskGetFreeSpace Lib "vbaddons.dll" (ByVal DriveLetter As String) As Long
  42. Declare Function DiskGetNextFile Lib "vbaddons.dll" (FindData As FindDataType) As Integer
  43. Declare Function DiskSetLabel Lib "vbaddons.dll" (ByVal DriveLetter As String, ByVal NewLabel As String) As Integer
  44.  
  45.